1 SYS8192:PRINT"[147]":FORAZ=1TO20:RUN10
10 POKE53280,0:POKE53281,0:GOSUB300
100 POKE53280,1:PRINTTAB(A)"[213][192][192][192][192][201]"
110 PRINTTAB(A)"[221][215]  [215][221]"
120 PRINTTAB(A)"[221] [167][165] [221]"
130 PRINTTAB(A)"[221] [192][192][160][221]"
140 PRINTTAB(A)"[202][192][178][178][192][203]"
150 PRINTTAB(A)"[176][189][173][174]"
160 PRINTTAB(A)"[221] [160][221]"
170 PRINTTAB(A)"[173][178][178][189]"
180 PRINTTAB(A)"[221][221]"
190 PRINTTAB(A)"[189][173]"
200 POKE53280,0:RETURN
300 FORJ=1TO5:NEXT:PRINT"":A=2:POKE646,1:GOSUB100
301 FORJ=1TO850:NEXT:PRINT"":A=32:POKE646,6:GOSUB100
302 FORJ=1TO450:NEXT:PRINT"":A=14:POKE646,5:GOSUB100
303 FORJ=1TO500:NEXT:PRINT"":A=20:POKE646,3:GOSUB100
304 FORJ=1TO400:NEXT:PRINT"":A=08:POKE646,13:GOSUB100
305 FORJ=1TO100:NEXT:PRINT"":A=26:POKE646,14:GOSUB100
306 FORJ=1TO3600:NEXT:GOTO400
307 POKE53280,1:POKE53281,1:PRINT"SHORT PRESENTATION FROM DEJUHRA/ANUBIS"
308 PRINT"PRESS ENIKAE TO RESTART"
309 FORA=1TO5:PRINT"[145]":NEXT:POKE53280,0:POKE53281,0:T=425
310 T=T-1:PRINT"[145]AUTOMATIC RESTART:"T"[157] ":GETA$:IFA$=""ANDT>0THEN310
399 RUN
400 T=5:PRINT"":FORLO=1TO11
401 POKE53280,10:PRINTTAB(T)"[150][145][145][145][145][145]       [166]   [166]  [166]  [166] [166]         "
402 PRINTTAB(T)"       [166][166] [166][166] [166] [166] [166] [166]         "
403 PRINTTAB(T)"       [166] [166] [166] [166][166][166] [166] [166]         "
404 PRINTTAB(T)"       [166]   [166] [166] [166] [166] [166]         "
405 PRINTTAB(T)"       [166]   [166] [166] [166] [166] [166][166][166]       ":POKE53280,0
409 FORJ=1TO170:NEXT
411 POKE53280,7:PRINTTAB(T)"[158][145][145][145][145][145][166]   [166]  [166]  [166][166]  [166] [166] [166][166][166] [166][166][166] [166][166][166]"
412 PRINTTAB(T)"[166][166] [166][166] [166] [166] [166] [166][160][166][220][166] [166]   [166]   [166]"
413 PRINTTAB(T)"[166] [166] [166] [166][166][166] [166] [166][160][166][166][166] [166][166]  [166][166][166][160][166][166][166]"
414 PRINTTAB(T)"[166]   [166] [166] [166] [166] [166] [166] [166] [166]     [166]   [166]"
415 PRINTTAB(T)"[166]   [166] [166] [166] [166][166]  [166] [166] [166][166][166] [166][166][166] [166][166][166]":POKE53280,0
419 FORJ=1TO170:NEXT
421 POKE53280,13:PRINTTAB(T)"[156][145][145][145][145][145]     [166][166]   [166]  [166][166][160] [166][166][166] [166] [166]     "
422 PRINTTAB(T)"     [166] [166] [166] [166] [166] [166][160] [166]  [166] [166]     "
423 PRINTTAB(T)"     [166][166]  [166][166][166] [166][166]   [166]  [166][166][166]     "
424 PRINTTAB(T)"     [166]   [166] [166] [166] [166]  [166]   [166]      "
425 PRINTTAB(T)"     [166][160]  [166][160][166] [166][160][166]  [166]   [166]      ":POKE53280,0
429 FORJ=1TO170:NEXT:NEXT:FORA=1TO900:NEXT:PRINT"[147]";:GOTO307